gusucode.com > 智睿政府网站管理系统 V2.1.0 > 智睿政府网站管理系统 V2.1.0\code\manage\Admin_MesEdit.asp
<!--#include file="../Include/conn.asp"-->
<!--#include file="Admin_check.asp"-->
<%
response.expires = 0
response.expiresabsolute = now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.cachecontrol = "no-cache"
if Instr(session("AdminPurview"),"|113,")=0 then
response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
response.end
end if
'========判断是否具有管理权限
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript" src="images/Admin.js"></script>
<link href="images/Admin_css.css" type=text/css rel=stylesheet>
<title>问政中心</title></head>
<body>
<%
dim Result
Result=request.QueryString("Result")
dim ReplyContent,ReplyTime,ID,MesName,Content,ViewFlag
dim Linkman,Telephone,AddTime,Unit,Typei,Audit
ID=request.QueryString("ID")
call MesEdit()
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<tr>
<td height="24" nowrap background="images/th_bg.gif"><font color="#FFFFFF"><STRONG>问政：审核，修改，回复问政相关的内容</STRONG></font></td>
</tr>
<tr>
<td height="24" align="center" nowrap bgcolor="#EBF2F9"><a href="Admin_MesList.asp">查看问政</a></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<form name="editForm" method="post" action="?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
<tr>
<td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct idth="100%">
<tr>
<td width="160" height="20" align="right"> </td>
<td> </td>
</tr>
<tr>
<td height="20" align="right">问政主题：</td>
<td><input name="MesName" type="text" class="textfield" id="MesName" style="WIDTH: 240;" value="<%=MesName%>"> *</td>
</tr>
<tr>
<td height="20" align="right" valign="top">问政内容：
<td><textarea name="Content" rows="6" class="textfield" id="Content" style="WIDTH: 76%;"><%=Content%></textarea> *</td>
</tr>
<tr>
<td height="20" align="right">留 言 者：</td>
<td><%=Linkman%></td>
</tr>
<tr>
<td height="20" align="right">受理单位：</td>
<td><%=Unit%></td>
</tr>
<tr>
<td height="20" align="right">类型：</td>
<td><%=Typei%></td>
</tr>
<tr>
<td height="20" align="right">电 话：</td>
<td><input name="Telephone" type="text" class="textfield" id="Telephone" style="WIDTH: 240;" value="<%=Telephone%>"></td>
</tr>
<tr>
<td height="20" align="right">电子邮箱：</td>
<td><input name="Email" type="text" class="textfield" id="Email" style="WIDTH: 240" value="<%=Email%>" readonly></td>
</tr>
<tr>
<td height="20" align="right">状 态：</td>
<td>
<input name="ViewFlag" type="checkbox" id="ViewFlag" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if ViewFlag=1 then response.write ("checked")%>> 通过审核
问政公开:
<input name="Audit" type="checkbox" id="Audit" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if Audit=1 then response.write ("checked")%>> 不公开显示
</td>
</tr>
<tr>
<td height="20" align="right">问政时间：</td>
<td><input name="AddTime" type="text" class="textfield" id="AddTime" style="WIDTH: 240" value="<%=AddTime%>" readonly></td>
</tr>
<tr>
<td height="20" align="right">回复时间：</td>
<td><input name="ReplyTime" type="text" class="textfield" id="ReplyTime" style="WIDTH: 240" value="<%=ReplyTime%>"></td>
</tr>
<tr>
<td height="20" align="right" valign="top">回复内容：</td>
<td><textarea name="ReplyContent" rows="6" class="textfield" id="ReplyContent" style="WIDTH: 76%;"><%=ReplyContent%></textarea></td>
</tr>
<tr>
<td height="30" align="right"> </td>
<td valign="bottom"><input name="submitSaveEdit" type="submit" class="button" id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
</tr>
<tr>
<td height="20" align="right"> </td>
<td valign="bottom"></td>
</tr>
</table></td>
</tr>
</form>
</table>
</BODY>
</HTML>
<%
sub MesEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存编辑管理员
set rs = server.createobject("adodb.recordset")
if len(trim(request.Form("MesName")))<1 then
response.write ("<script language=javascript> alert('""问政主题""为必填项目，且不少于1个字符！');history.back(-1);</script>")
response.end
end if
if len(trim(request.Form("Content")))<4 then
response.write ("<script language=javascript> alert('""问政内容""为必填项目，且不少于10个字符！');history.back(-1);</script>")
response.end
end if
if Result="Modify" then '修改网站管理员
sql="select * from zhi_rui_g_Message where ID="&ID
rs.open sql,conn,1,3
rs("MesName")=trim(Request.Form("MesName"))
rs("Content")= Request.Form("Content")
if Request.Form("ViewFlag")=1 then
rs("ViewFlag")=1
else
rs("ViewFlag")=0
end if
if Request.Form("Unit")=1 then
rs("Unit")=1
else
rs("Unit")=0
end if
rs("ReplyContent")=Request.Form("ReplyContent")
if not (trim(request.Form("ReplyContent"))="" or trim(request.Form("ReplyTime"))<>"") then
rs("ReplyTime")=now()
end if
end if
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript> alert('成功审核、编辑、回复问政！');location.replace('Admin_MesList.asp');</script>"
else '提取问政
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_g_Message where ID="& ID
rs.open sql,conn,1,1
MesName=rs("MesName")
Content=rs("Content")
Linkman=rs("Linkman")
Unit=rs("Unit")
Typei=rs("Typei")
Audit=rs("Audit")
Telephone=rs("Telephone")
Email=rs("Email")
ViewFlag=rs("ViewFlag")
AddTime=rs("AddTime")
ReplyContent=rs("ReplyContent")
ReplyTime=rs("ReplyTime")
rs.close
set rs=nothing
end if
end if
end sub
%>